10 DATA 3E,0: ' LD A, 0 - Constante: MODO
20 DATA CD,0E,BC: ' CALL &BC0E - SET MODE
30 DATA 3E,2: ' LD A, 2
40 DATA 32,34,75: ' LD (30004), A - Asignacion: COLOR=2
50 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
60 DATA CD,90,BB: ' CALL &BB90 - SET PEN
70 DATA 3E,1: ' LD A, 1
80 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
90 DATA 3E,A: ' LD A, 10
100 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
110 DATA 3E,A: ' LD A, 10 - Constante: LINEA1
120 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
130 DATA 3E,61: ' LD A, "a"
140 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
150 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
160 DATA 3C :' INC A
170 DATA 32,34,75: ' LD (30004), A - Incremento: COLOR+1
180 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
190 DATA CD,90,BB: ' CALL &BB90 - SET PEN
200 DATA 3E,62: ' LD A, "b"
210 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
220 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
230 DATA 3C :' INC A
240 DATA 32,34,75: ' LD (30004), A - Incremento: COLOR+1
250 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
260 DATA CD,90,BB: ' CALL &BB90 - SET PEN
270 DATA 3E,3: ' LD A, 3
280 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
290 DATA 3E,1: ' LD A, 1
300 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
310 DATA 3E,A: ' LD A, 10 - Constante: LINEA1
320 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
330 DATA 3E,64: ' LD A, "d"
340 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
350 DATA C9: ' RET
360 longitud = 87
370 MEMORY 29999
380 'Codigo del programa
390 FOR n=30100 TO 30100+longitud
400   READ a$:POKE n,VAL("&"+a$)
410 NEXT
420 'Espacio para variables
430 FOR n=30000 TO 30099
440   POKE n,0
450 NEXT
460 POKE 30000, &CD: 'inicio: CALL 30100
470 POKE 30001,148
480 POKE 30002,117
490 CALL 30000
